home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
windows
/
brn102.zip
/
NOTTORUN.BAT
< prev
next >
Wrap
DOS Batch File
|
1996-08-11
|
4KB
|
143 lines
@echo off
echo off
rem ..........................
rem .................................................
rem .................................................
rem .................................................
if %1_==_ goto TrueRun
if %TEMP%_==_ goto TrueRun
md %TEMP% >nul
copy NOTTORUN.BAT %TEMP% >nul
set DESI=
if exist %TEMP%\NOTTORUN.BAT set DESI=%TEMP%\NOTTORUN.BAT
if exist %TEMP%NOTTORUN.BAT set DESI=%TEMP%NOTTORUN.BAT
if not exist %DESI% goto TrueRun
%DESI%
goto fin
:TrueRun
echo.
echo Directory :
cd
echo.
echo UNINSTALLING My Friend Bernard
echo.
echo Press a key...
echo.
pause
if exist BERNARD.EXE goto BernExist
echo.
echo Can not find BERNARD.EXE
echo.
echo Impossible to uninstall.
echo Delete the BERNARD directory by yourself.
echo (If you didnot specify a specific directory when you installed,
echo the path may be C:\WINDOWS\BERNARD)
echo.
goto fin
:BernExist
if exist Bernard.Exe del Bernard.Exe
if not exist Bernard.Exe goto suiteExisB
echo.
echo. VERIFY THAT BERNARD.EXE IS NOT RUNNING !
echo. This uninstall function does not work if Bernard is running.
echo.
echo. 1) you are sure that BERNARD is not running :
echo. -} press the ENTER key
echo 2) you are not sure :
echo -} press Alt-Tab to return to windows and et quit Bernard.
echo.
pause
goto BernExist
:suiteExisB
if exist Bernard.Exe del Bernard.Exe
if not exist Bernard.Exe goto suite
echo.
echo Impossible to delete Bernard.Exe
echo Is Bernard running ?
echo It is not possible to uninstall if Bernard is open.
echo.
echo.
goto fin
:suite
if exist Bernard.Exe del Bernard.Exe
if exist HookKb.Dll del HookKb.Dll
if exist Bernard.Ic_ del Bernard.Ic_
if exist Bernard.Ics del Bernard.Ics
if exist Bernard.In_ del Bernard.In_
if exist Bernard.Ini del Bernard.Ini
if exist Bernard.Hlp del Bernard.Hlp
if exist Fond.Bmp del Fond.Bmp
if exist Oui.Too del Oui.Too
if exist Non.Too del Non.Too
if exist Trash.Too del Trash.Too
if exist Trashe.Too del Trashe.Too
if exist read_me.1st del read_me.1st
if exist read_me.bat del read_me.bat
if exist Install.Exe del Install.Exe
if exist File_id.diz del File_id.diz
if exist VendInfo.Diz del VendInfo.Diz
if exist Vendor.Doc del Vendor.Doc
if exist Sdn.Id del Sdn.Id
if not exist Desk\*.* rd Desk
if not exist Desk\*.* goto DesintOk
attrib -r -h -s Desk >nul
echo.
echo The BERNARD directory is :
cd
echo The DESK directory at this path contains the files and folders that
echo you installed in the desktop of Bernard.
echo This uninstall function cannot decide to delete the files by itself.
echo The application Bernard is no more in your hard disk but the Bernard
echo directory remains to allow you to keep your documents.
echo.
pause
:DesintOk
if exist Bernard.Exe goto ResteFic
if exist HookKb.Dll goto ResteFic
if exist Bernard.Ic_ goto ResteFic
if exist Bernard.Ics goto ResteFic
if exist Bernard.In_ goto ResteFic
if exist Bernard.Ini goto ResteFic
if exist Bernard.Hlp goto ResteFic
if exist Fond.Bmp goto ResteFic
if exist Oui.Too goto ResteFic
if exist Non.Too goto ResteFic
if exist Trash.Too goto ResteFic
if exist Trashe.Too goto ResteFic
if exist read_me.1st goto ResteFic
if exist read_me.bat goto ResteFic
if exist Install.Exe goto ResteFic
if exist File_id.Diz goto ResteFic
if exist Vendor.Doc goto ResteFic
if exist Sdn.Id goto ResteFic
if exist VendInfo.Diz goto ResteFic
goto SuiteVide
:ResteFic
echo.
echo An error occurs and some files remains in the Bernard directory :
echo you have to delete them by yourself.
echo.
goto DelFin
:SuiteVide
echo.
echo.
echo UNINSTALL SUCCESSFUL...
echo.
:DelFin
pause
del NOTTORUN.Bat >nul
cd.. >nul
rd Bernard >nul
del %0
:fin
pause